﻿Public Class Requerimiento
    Inherits BasePersistencia

    Sub New()
        MyBase.Persistencia = EstadoPersistencia.INSERT
    End Sub

    Private _titulo As String
    Private _descripcion As String
    Private _justificacion As String
    Private _prioridad As Nivel
    Private _usuario As Usuario
    Private _fecha As Date
    Private _solicitantes As Recurso()
    Private _adjuntos As Archivo()
    Private _aprobado As Boolean
    Private _nivelmodificacion As Nivel
    Private _nivelrecursos As Nivel
    Private _tiposolicitud As TipoSolicitud


#Region "Propiedades"

    Public Property Titulo() As String
        Get
            Return _titulo
        End Get
        Set(ByVal value As String)
            _titulo = value
        End Set
    End Property

    Public Property Descripcion() As String
        Get
            Return _descripcion
        End Get
        Set(ByVal value As String)
            _descripcion = value
        End Set
    End Property

    Public Property Justificacion() As String
        Get
            Return _justificacion
        End Get
        Set(ByVal value As String)
            _justificacion = value
        End Set
    End Property

    Public Property Usuario() As Usuario
        Get
            Return _usuario
        End Get
        Set(ByVal value As Usuario)
            _usuario = value
        End Set
    End Property

    Public Property Fecha() As Date
        Get
            Return _fecha
        End Get
        Set(ByVal value As Date)
            _fecha = value
        End Set
    End Property

    Public Property Prioridad() As Nivel
        Get
            Return _prioridad
        End Get
        Set(ByVal value As Nivel)
            _prioridad = value
        End Set
    End Property

    Public Property Solicitantes() As Recurso()
        Get
            Return _solicitantes
        End Get
        Set(ByVal value As Recurso())
            _solicitantes = value
        End Set
    End Property


    Public Property Adjuntos() As Archivo()
        Get
            Return _adjuntos
        End Get
        Set(ByVal value As Archivo())
            _adjuntos = value
        End Set
    End Property

    Public Property Aprobado() As Boolean
        Get
            Return _aprobado
        End Get
        Set(ByVal value As Boolean)
            _aprobado = value
        End Set
    End Property

    Public Property NivelModificacion() As Nivel
        Get
            Return _nivelmodificacion
        End Get
        Set(ByVal value As Nivel)
            _nivelmodificacion = value
        End Set
    End Property
    Public Property NivelRecursos() As Nivel
        Get
            Return _nivelrecursos
        End Get
        Set(ByVal value As Nivel)
            _nivelrecursos = value
        End Set
    End Property

    Public Property TipoSolicitud() As TipoSolicitud
        Get
            Return _tiposolicitud
        End Get
        Set(ByVal value As TipoSolicitud)
            _tiposolicitud = value
        End Set
    End Property

#End Region
End Class
